From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 28 Oct 2010 14:36:59 +0000 (-0400)
Subject: * lisp/vc/log-edit.el (log-edit-rewrite-fixes): State its safety pred.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5905
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e28059765a31dec2c79a944f7cedf8f259dfbe04;p=emacs.git

* lisp/vc/log-edit.el (log-edit-rewrite-fixes): State its safety pred.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3dd312fbf71..2c116c9f33d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-28  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc/log-edit.el (log-edit-rewrite-fixes): State its safety pred.
+
 2010-10-28  Glenn Morris  <rgm@gnu.org>
 
 	* term/ns-win.el (global-map, menu-bar-final-items, menu-bar-help-menu):
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index 80d77213abf..c0aa595d968 100644
--- a/lisp/vc/log-edit.el
+++ b/lisp/vc/log-edit.el
@@ -579,6 +579,8 @@ The value should be of the form (REGEXP . REPLACEMENT)
 where REGEXP should match the expression referring to a bug number
 in the text, and REPLACEMENT is an expression to pass to `replace-match'
 to build the Fixes: header.")
+(put 'log-edit-rewrite-fixes 'safe-local-variable
+     (lambda (v) (and (stringp (car-safe v)) (stringp (cdr v)))))
 
 (defun log-edit-insert-changelog (&optional use-first)
   "Insert a log message by looking at the ChangeLog.